UC知道急```````！！！VB VB来啊
来源：百度知道 编辑：UC知道 时间：2024/06/27 07:02:44
求1+1/1*2+1/2*3+1/n*(n-1)
请各位在---处填一下
Private Sub Form_Click()
Dim sum As Single, kk As Single, mm As Single
Dim i As Integer, n As Integer
-----------
mm = InputBox("请输入要求的项数N")
n = Val(mm)
sum = 1
For i = 1 To 100
kk = i * (i + 1)
sum = 1 / kk
Next i
End If
-----------
Print "sum": sum
End Sub
问题补充：以上是求和
请在----------处填一下代码
请各位在---处填一下
Private Sub Form_Click()
Dim sum As Single, kk As Single, mm As Single
Dim i As Integer, n As Integer
-----------
mm = InputBox("请输入要求的项数N")
n = Val(mm)
sum = 1
For i = 1 To 100
kk = i * (i + 1)
sum = 1 / kk
Next i
End If
-----------
Print "sum": sum
End Sub
问题补充：以上是求和
请在----------处填一下代码
应该不是这样的吧
应该是
Private Sub Form_Click()
Dim sum As Single, kk As Single, mm As Single
Dim i As Integer, n As Integer
if true then '----------- 这里加上这个
mm = InputBox("请输入要求的项数N")
n = Val(mm)
sum = 1
For i = 1 To n '这个地方把100改成n
kk = i * (i + 1)
sum = 1 / kk +sum '这里改成sum=1/kk+sum
Next i
End If
'----------- 这里什么也不填
Print "sum",sum
End Sub